#!/usr/bin/perl

@array = <>;
foreach (@array) {
if (/.*\./) {
  print "$_";
  }
}
